home *** CD-ROM | disk | FTP | other *** search
/ Merciful 4 / Merciful - Disc 4.iso / rexx / animtoanimbrush.pprx < prev    next >
Text File  |  1996-11-02  |  2KB  |  95 lines
  1. /* Personal Paint Amiga Rexx script - Copyright © 1995-1996 Cloanto Italia srl */
  2.  
  3. /* $VER: AnimToAnimBrush.pprx 1.1 */
  4.  
  5. /** ENG
  6.   This script converts the current animation into an anim-brush.
  7. */
  8.  
  9. /** DEU
  10.   Dieses Skript dient zur Umwandlung der aktuellen Animation in einen Anim-Brush.
  11. */
  12.  
  13. IF ARG(1, EXISTS) THEN
  14.     PARSE ARG PPPORT
  15. ELSE
  16.     PPPORT = 'PPAINT'
  17.  
  18. IF ~SHOW('P', PPPORT) THEN DO
  19.     IF EXISTS('PPaint:PPaint') THEN DO
  20.         ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  21.         DO 30 WHILE ~SHOW('P',PPPORT)
  22.              ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  23.         END
  24.     END
  25.     ELSE DO
  26.         SAY "Personal Paint could not be loaded."
  27.         EXIT 10
  28.     END
  29. END
  30.  
  31. IF ~SHOW('P', PPPORT) THEN DO
  32.     SAY 'Personal Paint Rexx port could not be opened.'
  33.     EXIT 10
  34. END
  35.  
  36. ADDRESS VALUE PPPORT
  37. OPTIONS RESULTS
  38. OPTIONS FAILAT 10000
  39.  
  40. Get 'LANG'
  41. IF RESULT = 1 THEN DO        /* Deutsch */
  42.     txt_err_oldclient = 'Für dieses Skript_ist eine neuere Version_von Personal Paint erforderlich'
  43. END
  44. ELSE IF RESULT = 2 THEN DO    /* Italiano */
  45.     txt_err_oldclient = 'Questa procedura richiede_una versione più recente_di Personal Paint'
  46. END
  47. ELSE DO                /* English */
  48.     txt_err_oldclient = 'This script requires a newer_version of Personal Paint'
  49. END
  50.  
  51. Version 'REXX'
  52. IF RESULT < 7 THEN DO
  53.     RequestNotify 'PROMPT "'txt_err_oldclient'"'
  54.     EXIT 10
  55. END
  56.  
  57.  
  58. FreeBrush
  59. IF RC ~= 0 THEN
  60.     EXIT RC
  61.  
  62.  
  63. LockGUI
  64. loaded = 0
  65. GetFrames
  66. frnum = RESULT
  67. IF frnum = 0 THEN DO
  68.     LoadAnimation 'NEW'
  69.     IF RC = 0 THEN DO
  70.         GetFrames
  71.         frnum = RESULT
  72.         loaded = 1
  73.     END
  74. END
  75. IF frnum > 0 THEN DO
  76.     Get 'IMAGEW'
  77.     x1 = RESULT - 1
  78.     Get 'IMAGEH'
  79.     y1 = RESULT - 1
  80.  
  81.     GetFramePosition
  82.     fpos = RESULT
  83.     SetFramePosition 1
  84.     DefineBrush 0 0 x1 y1 'FRAMES' frnum
  85.     SetFramePosition fpos
  86.     IF RC = 0 THEN
  87.         SaveAnimBrush
  88.     FreeBrush 'FORCE'
  89. END
  90. IF loaded THEN DO
  91.     DeleteFrames 'ALL FORCE'
  92.     ClearImage 'FORCE'
  93. END
  94. UnlockGUI
  95.